COMMENT ⊗   VALID 00003 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	BEGIN "AFD"
 00003 00003	LABEL SOV
 00005 ENDMK
⊗;
BEGIN "AFD"

DEFINE ⊃ ="COMMENT";

REQUIRE "PREAMB.SAI[SYS,HE]" SOURCE_FILE;
REQUIRE "HELIB[1,3]" LIBRARY;

EXTERNAL INTEGER PROCEDURE GIOWD(INTEGER ARRAY X);
EXTERNAL PROCEDURE INTPNT;
EXTERNAL INTEGER CUT,TVWORD;
INTEGER ARRAY TVBUF[1:100],HIST[0:15];
INTEGER DUMMY,EXFLAG,MESS,MAXI,MINI;

DEFINE  CRLF="&'15&'12", YES="INCHWL=""Y""", ⊃="COMMENT";
DEFINE WINDOW="X←0 STEP 1 UNTIL LOOK_AT[4]-1 DO
	       FOR Y←0 STEP 1 UNTIL LOOK_AT[5]-1";

REQUIRE "TVSER.SAI[SYS,HE]" SOURCE_FILE;

LABEL SOV;
INTEGER RLENS,NCUT;
REAL EST_RANG,RANGINVAL;
STRING COD;

  PUT_DATA(0,0,"DRV");
  OUTSTR("AFD-WAITING"CRLF);
  WHILE (¬YES_CAM)∨(¬ YES_FOC) DO CALL(1,"SLEEP");
  OUTSTR("AFD-ACTIVATED"CRLF);

TVWORD←GIOWD(TVBUF); INTPNT;
SETFORMAT(6,3);
SOV: EXFLAG←0;
    OUTSTR("...TYPE THE LENS NO. YOU WANT TO USE="CRLF);
    RLENS←CVD(INCHWL);
    MESS←ISSUE(7,"DRV","CAM",MESSAGE CHNG_LENS(RLENS));
    IF CAMFLG≠0 THEN GOTO SOV;

OUTSTR("...CHANGE TO MAN CTRL, MOVE THE CAMERA"CRLF);
OUTSTR("...CHNAGE BACK TO CPTR CTRL AND TYPE Y:"CRLF); IF YES THEN;
MESS←ISSUE(7,"DRV","CAM",MESSAGE CAM_UPDATE);
SETWINDOW; IF EXFLAG≠0 THEN GOTO SOV;
OUTSTR("...TYPE EST_RANGE="CRLF); COD←INCHWL; EST_RANG←REALSCAN(COD,DUMMY);
OUTSTR("...TYPE RANGINVAL="CRLF); COD←INCHWL; RANGINVAL←REALSCAN(COD,DUMMY);
OUTSTR("...TYPE NCUT="CRLF); NCUT←CVD(INCHWL);
MESS←ISSUE(7,"DRV","FOC",MESSAGE AUTOFOC(EST_RANG,RANGINVAL,NCUT));
IF   FOCFLG≠0 
THEN OUTSTR("FOC-FAILED: FOCFLG="&CVS(FOCFLG)CRLF)
ELSE OUTSTR("RANGE="&CVG(FOCRANG)&" DELF="&CVG(FOCDELF)CRLF);
OUTSTR("...TYPE Y TO TEST AGAIN:"CRLF); IF YES THEN GOTO SOV;
END "AFD";